home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / System / Hello World < prev    next >
Encoding:
Text File  |  1999-03-04  |  542 b   |  33 lines  |  [TEXT/ToyS]
  1. on run
  2.     tell application "Note Pad" to activate
  3.     
  4.     SelectAll()
  5.     
  6.     input state {keys down:"Hello World!"}
  7.     pause for 5 with seconds timing
  8.     
  9.     SelectAll()
  10.     pause for 30 -- Just for the user to see what's happening
  11.     EditCut()
  12.     pause for 30
  13.     AppQuit()
  14. end run
  15.  
  16.  
  17. on SelectAll()
  18.     -- Select all
  19.     input state {keys down:"A", command key down:true}
  20. end SelectAll
  21.  
  22.  
  23. on EditCut()
  24.     -- Select all
  25.     input state {keys down:"X", command key down:true}
  26. end EditCut
  27.  
  28.  
  29. on AppQuit()
  30.     -- Select all
  31.     input state {keys down:"Q", command key down:true}
  32. end AppQuit
  33.